home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / game / patch / jst.lha / jst_usr / Install-Script < prev    next >
Text File  |  2001-03-19  |  2KB  |  123 lines
  1. (if (= @language "français")
  2. (
  3.  
  4. (set #askbindest "Où désirez-vous que les fichiers binaires\n(JST, créateurs d'images disque, fichiers code) soient installés?\nAucun tiroir ne sera crée\n\nLe tiroir doit être dans votre PATH (ex. C:)")
  5. (set #askdocdest "Où désirez-vous que les fichiers auxiliaires (docs,exemples) soient installés?\nUn tiroir JST sera créé.")
  6.  
  7. (set #docdrawer "french")
  8.  
  9. )
  10. )
  11.  
  12. (if (= @language "english")
  13. (
  14.  
  15. (set #askbindest "Where would you like the binary files (JST, disk imagers, auxiliary files) installed?\nA drawer will NOT be created\n\nThe location should be in your path (e.g. C:)")
  16. (set #askdocdest "Where would you like the auxiliary files (docs,examples) installed?\nA drawer called JST will be created.")
  17.  
  18. (set #docdrawer "english")
  19. )
  20. )
  21.  
  22. (set bin-dest
  23.      (askdir (prompt #askbindest)
  24.                      (help @askdir-help)
  25.                      (default "C:")
  26.                      (newpath)
  27.       )
  28. )
  29.  
  30.  
  31. (if (exists "Work:" (noreq) )
  32.     (set @default-dest "Work:")
  33.     (if (exists "SYS:Work" (noreq) )
  34.         (set @default-dest "SYS:Work")
  35.     )
  36.      (set @default-dest "SYS:")
  37. )
  38.  
  39.  
  40.  
  41. ;ask the user to select a directory to install the other files
  42.  
  43. (set default-dest
  44.      (tackon (askdir (prompt #askdocdest)
  45.                      (help @askdir-help)
  46.                      (default @default-dest)
  47.                      (newpath)
  48.              )
  49.      "JST"
  50.      )
  51. )
  52. (set @default-dest default-dest)
  53.  
  54. ;create the selected directory
  55. (makedir @default-dest
  56.          (infos)
  57. )
  58.  
  59. (set doc-dest (tackon @default-dest "docs"))
  60.  
  61.  
  62. (makedir doc-dest
  63.          (infos)
  64. )
  65.  
  66. (if (exists "sources" )
  67.   (
  68.     (set source-dest (tackon @default-dest "sources"))
  69.  
  70.     (makedir source-dest
  71.            (infos)
  72.     )
  73.     (copyfiles (source "sources")
  74.              (dest source-dest)
  75.          (all)
  76.     )
  77.   )
  78.  
  79.  
  80. )
  81.  
  82.  
  83. (copyfiles (source "bin")
  84.            (dest bin-dest)
  85.        (all)
  86. )
  87.  
  88. (if (exists "docs/engonly")
  89. (copyfiles (source "docs/engonly")
  90.            (dest doc-dest)
  91.        (all)
  92. )
  93. )
  94.  
  95. (if (exists "installwizard")
  96. (
  97. (set iw-dest (tackon @default-dest "installwizard"))
  98.  
  99. (copyfiles (source "installwizard/binary/OSEmu.400")
  100.            (dest bin-dest)
  101. )
  102. (copyfiles (source "installwizard")
  103.            (dest iw-dest)
  104.        (all)
  105. )
  106. )
  107. )
  108.  
  109. (copyfiles (source ("docs/%s" #docdrawer))
  110.            (dest doc-dest)
  111.        (all)
  112. )
  113.  
  114. (copyfiles (source "docs/common")
  115.            (dest doc-dest)
  116.        (all)
  117. )
  118.  
  119. ; cleanup
  120.  
  121. (delete (tackon bin-dest "README"))
  122. (delete (tackon bin-dest "README.info"))
  123.